Sub uno()
    MiVar = 1000
    Debug.Print "Mtodo uno: MiVar = " & MiVar
    Call dos
    MiVar = MiVar + 1
    Debug.Print "Mtodo uno: MiVar = " & MiVar
End Sub

Sub dos()
    Dim MiVar As Integer
    MiVar = 1
    Debug.Print "Mtodo dos: MiVar = " & MiVar
End Sub
